home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
programr
/
ssetup26.zip
/
TMPFORM.FR_
/
TMPFORM.FRM
Wrap
Text File
|
1995-07-27
|
3KB
|
107 lines
VERSION 2.00
Begin Form Form2
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Double
ClientHeight = 1656
ClientLeft = 1080
ClientTop = 1512
ClientWidth = 4500
ControlBox = 0 'False
Height = 1980
Left = 1032
LinkMode = 1 'Source
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1656
ScaleWidth = 4500
Top = 1236
Width = 4596
Begin Label Etiquette1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Initialization, please wait..."
Height = 255
Left = 480
TabIndex = 0
Top = 600
Width = 3375
End
End
Sub Form_GotFocus ()
a% = BringWindowToTop(Form2.hwnd)
End Sub
Sub Form_Load ()
bRunningSetup% = 0
FirstCanClose% = 0
Form2.Move (Screen.Height / 2) - (Height / 2), (Screen.Width / 2) - (Width / 2), Width, Height
b% = BringWindowToTop(Form2.hwnd)
szBuffer$ = String$(20, 0)
a% = GetProfileString("intl", "sLanguage", "", szBuffer$, 4)
iZero% = InStr(szBuffer$, Chr$(0))
szTemp$ = Left$(szBuffer$, iZero% - 1)
If (szTemp$ = "fra") Or (szTemp$ = "FRA") Then
iLanguage% = LANGUAGE_FRENCH
Etiquette1.Caption = "Initialisation, veuillez patienter..."
Else
iLanguage% = LANGUAGE_ENGLISH
End If
bIsSetupOK% = SetupInitialize(szYourName$, szPassword$, iLanguage%, szOriginalPath$, szTempSetupPath$)
If (bIsSetupOK% = 0) Then
If (iLanguage% = LANGUAGE_FRENCH) Then
MsgBox "Erreur d' initialisation..."
Else
MsgBox "Initialization error..."
End If
FirstCanClose% = 1
End
End If
a% = SetupSetTitle(szSetupBoxTitle$)
' -------------------------------------------------------------
' Using a system batch (shared files)
' -------------------------------------------------------------
If (bUseSharedBatch% = 1) Then
szBuffer$ = String$(256, 0)
a% = GetWindowsDirectory(szBuffer$, 255)
iZero% = InStr(szBuffer$, Chr$(0))
szTemp$ = Left$(szBuffer$, iZero% - 1)
szBuffer$ = szTemp$
If (Len(szBuffer$)) > 3 Then
szBuffer$ = szBuffer$ + "\"
End If
szWinDir$ = szBuffer$
szUserBatchFile$ = Left$(szWinDir$, 3)
szUserBatchDir$ = szUserBatchFile$ + "SYSSETUP.TMP\"
szUserBatchFile$ = szUserBatchFile$ + "SYSSETUP.TMP\SYSSETUP.BAT"
a% = SetSharedBatchFile(szUserBatchFile$, szUserBatchDir$)
End If
' -------------------------------------------------------------
' Other settings
' -------------------------------------------------------------
a% = SetPatternBrushStandard(iBackgroundPaper%)
a% = SetupSetBeepMode(bBeepMode%)
a% = SetVerifyMode(bVerifyMode%)
If (iPanel1Bitmap% = 0) Then
If (szPanel1Title$ <> "") Then
a% = SetTextLogo(szPanel1Title$, szPanel1TitleFont$, iPanel1TitleSize%, lPanel1TitleColor&, bPanel1Title3D%, bPanel1TitleBold%)
If (szPanel1Detail$ <> "") Then
a% = SetTextDetail(szPanel1Detail$, szPanel1DetailFont$, iPanel1DetailSize%, lPanel1DetailColor&, bPanel1Detail3D%, bPanel1DetailBold%)
End If
a% = SetLogoType(1)
End If
Else
'a% = SetLogo(hInstance%, iPanel1Bitmap)
'SetLogoType( 0)
End If
FirstCanClose% = 1
bRunningSetup% = 1
End Sub